home *** CD-ROM | disk | FTP | other *** search
Modula Definition | 1992-04-08 | 969 b | 30 lines |
- (* %filename% -- window *)
- (* Created %date% %time% by AppMaker *)
-
- (* For most applications, your window will have custom view classes. *)
- (* This module provides a convenient place to put these classes. *)
- (* If you specify a custom classname for any view item, AppMaker will *)
- (* generate some skeleton code for that custom class. It generates *)
- (* a declaration of that class with a fields method; it generates *)
- (* the body of the fields method; and AppMaker generates code for *)
- (* dead strip suppression. For some view items, AppMaker generates *)
- (* other methods it knows you will need; for instance, for a *)
- (* TTextListView, AppMaker generates a GetItemText method. *)
-
- DEFINITION MODULE U%windname%;
-
- FROM UMacApp IMPORT
- TDocument, TWindow;
-
- (*${QINSPECTOR*)
- FROM UMacAppUtilities IMPORT
- DoToFieldMETHOD;
- (*$}*)
-
- %for each item gen classDecl%
-
- (*----------*)
- PROCEDURE New%windname% (itsDocument: TDocument): TWindow;
-
- END U%windname%.
-